home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1999 May: Tool Chest / Developer CD Series Tool Chest (Apple Computer)(May 1999).iso / Tool Chest / Development Kits / MPW etc / Miscellaneous / WindowBar / WindowBarCmds / UpdateToLatest < prev   
Encoding:
Text File  |  1995-10-11  |  715 b   |  27 lines  |  [TEXT/MPS ]
  1. Begin
  2.     Set Exit 0
  3.     Set ActiveName "{Active}"
  4.     If "`projectinfo "{Active}"`" =~ /≈Project:[ ∂t]+([¬ ∂t]+)®1≈/
  5.         If "`mountproject -pp -r`" =~ /≈{®1}≈/
  6.             If "`projectinfo -s "{ActiveName}"`" =~ /≈∂*≈/
  7.                 Orphanfiles "{ActiveName}"
  8.             End
  9.             If "{LockUncheckedOutFiles}"
  10.                 SetFile "{ActiveName}" -a l
  11.                 Close "{ActiveName}"
  12.                 Open "{ActiveName}"
  13.             End
  14.             CheckOut -y -open -project {®1} "{ActiveName}"
  15.             If "{LockUncheckedOutFiles}"
  16.                 SetFile "{ActiveName}" -a L
  17.                 Close "{ActiveName}"
  18.                 Open "{ActiveName}"
  19.             End
  20.         Else
  21.             Alert "Cannot update this file.∂nProject “{®1}” is not mounted."
  22.         End
  23.     Else
  24.         Alert "Cannot update this file.∂nUnable to obtain project information."
  25.     End
  26. End ∑∑ "{Worksheet}"
  27.